#!/usr/bin/perl
$_a="undercore";
print "var is $_a\n";

$Var="upcase";
$var="lowcase";
print "value is $var\n";

$this_is_a_really_long_but_legal_name_that_is_different="long var";
print "var is $this_is_a_really_long_but_legal_name_that_is_different\n";

$if="key";
print "key var is $if\n";
